home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
pctchnqs
/
1992
/
number1
/
buflen.src
next >
Wrap
Text File
|
1992-02-19
|
607b
|
31 lines
PROCEDURE BufLen (VAR s : STRING; Size : BYTE);
CONST
BS = #8;
CR = #13;
VAR
Ch : CHAR;
Done : BOOLEAN;
BEGIN
Done := False;
s[0] := #0;
REPEAT
ch := ReadKey;
CASE ch OF
BS : IF 0 < LENGTH(s) THEN
BEGIN
DEC (s[0]);
WRITE (BS, ' ', BS)
END;
CR : Done := TRUE
ELSE IF LENGTH (s) < size THEN
BEGIN
s := s + ch;
WRITE (ch)
END
END {Case}
UNTIL done
END; {Procedure BufLen}